﻿Public Class Common
    'Plugin vars
    Public PLUGINS As New ArrayList
    ''
    Public Sub Panic(ByVal err As String)
        MsgBox("There has been a fatal error!" + vbNewLine + vbNewLine + "Error: " + err, MsgBoxStyle.Critical, "DevBox Fatal Error")
        Application.Exit()
    End Sub
    Public Sub sleep(ByVal seconds As Integer)
        For i = 0 To seconds
            Application.DoEvents()
            Threading.Thread.Sleep(1000)
        Next
    End Sub
End Class
